VBA中读取文件的步骤

您所在的位置:网站首页 c 读取文件某一行的第一个字符 VBA中读取文件的步骤

VBA中读取文件的步骤

#VBA中读取文件的步骤| 来源: 网络整理| 查看: 265

使用下面的语句来逐行读取Autoexec.bat或者其它任何顺序文件里的内容:

Line Input #filenumber, variableName

#filenumber是用Open语句打开文件时使用的数字,variableName是个String或者Variant变量,用来储存读取的行。

Line Input #语句仅读取一开启顺序文件里的一行并且储存在一变量里。记住,Line Input # 语句一次读取顺序文件里的一个字符,直到它遇到回车字符(Chr(13))或者回车-换行字符(Chr(13)& Chr(10))。这些字符(回车,换行)在读取过程中返回的文本里是会忽略掉的。

接下来的过程ReadMe示范如何使用Open和Line Input #语句逐行读取Autoexec.bat文件的内容。试试用同样的方法来读取其它顺序文件。

1. 在当前工程里面插入新模块并重命名为SeqFiles

2. 输入下列过程ReadMe:

Sub ReadMe() Dim rLine As String Dim i As Integer ' line number i = 1 Open "C:\Autoexec.bat" For Input As #1 ' stay inside the loop until the end of file is reached Do While Not EOF(1) Line Input #1, rLine MsgBox "Line " & i & " in Autoexec.bat reads: " _ & Chr(13) & Chr(13) & rLine i = i + 1 Loop MsgBox i & " lines were read." Close #1 End Sub

3. 按下F8,逐句运行该过程

为了读取内容,过程ReadMe将文件Autoexec.bat在模式Input里作为文件号码1打开。Do…While循环告诉VB一直执行循环里面的语句,直到到达文件结尾。文件的结尾由函数EOF的结果决定。

EOF函数当下个要读取的字符已经过了文件结尾时,返回逻辑值True。注意,EOF要求一个参数——你要检查的打开了的文件号码,是前面Open语句使用的同一个数字。使用EOF函数来确保VB不会超出文件结尾处。

Line Input # 语句将每行内容储存于变量rLine里,然后,信息框显示行号和它的内容。之后如果函数EOF的结果还是为假(还未到达文件结尾处)的话,VBA给行计数器增加1,并且开始读取下一行。当函数EOF结果为真是,VB就会退出循环。在VBA结束前,还会再运行两条语句,显示读取行的总数,以及关闭该打开的文件。



【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3